00100		DIMENSION I(11),NAM(3)
00200		CALL OFILE(1,'SEM')
00250		CALL IFILE(21,'301C')
00425	1	READ(21,3,END=100)N,NAM
00450		IF(NAM(1).EQ.' ')CALL EXIT
00600		READ(21,5)N,I
00700		K=I(1)*10+I(2)*11+I(3)*12+I(4)*14+I(5)*15+I(6)*17+
00800		1 I(7)*19+ I(8)*4+I(9)*3+I(10)*5+I(11)*5
00825		A=I(8)*4+I(9)*3+I(10)*5
00837		KF=A/12.+.5
00840		A=K/110.+.5
00845		KT=A
00850		WRITE(1,66)NAM,KF,K,KT
00875		TYPE 66,NAM,KF,K,KT
00900		WRITE(1,55)I
01100		GO TO 1
01200	2	FORMAT(' STUDENT  '$)
01300	3	FORMAT(I,3A5)
01400	4	FORMAT(' TYPE 11 NUMBERS')
01500	5	FORMAT(12I)
01600	6	FORMAT(1X3A5,2I)
01650	55	FORMAT(11I5)
01675	66	FORMAT(1X3A5,3I7)
01700	100	CALL EXIT
01800		END